2280 IF YARA1=10 THEN YARA1=0:P1=0:FX1=0:SPRITE 0,YA1,0:SPRITE 0,ST1,1
2290 IF HP1<1 THEN *END
2300 GOTO *P2
2310 '
2320 *MOVE1:MOVA1=MOVA1+1:SPRITE TIME
2330 IF MOVA1=1 OR MOVA1=2 THEN Y1=-4:SPRITE 6,ST1,X1,Y1:SPRITE 6,JP1,X1,Y1:SPRITE 6,PN1,X1,Y1:SPRITE 6,PA1,X1,Y1:SPRITE 6,BL1,X1,Y1:SPRITE 6,YA1,X1,Y1:SPRITE 6,GL1,X1,Y1:SPRITE 0,ST1,0:SPRITE 0,JP1,1
2340 IF MOVA1=3 OR MOVA1=4 THEN Y1=-2:SPRITE 6,ST1,X1,Y1:SPRITE 6,JP1,X1,Y1:SPRITE 6,PN1,X1,Y1:SPRITE 6,PA1,X1,Y1:SPRITE 6,BL1,X1,Y1:SPRITE 6,YA1,X1,Y1:SPRITE 6,GL1,X1,Y1
2350 IF MOVA1=5 OR MOVA1=6 THEN Y1=0:SPRITE 6,ST1,X1,Y1:SPRITE 6,JP1,X1,Y1:SPRITE 6,PN1,X1,Y1:SPRITE 6,PA1,X1,Y1:SPRITE 6,BL1,X1,Y1:SPRITE 6,YA1,X1,Y1:SPRITE 6,GL1,X1,Y1
2360 IF MOVA1=7 OR MOVA1=8 THEN Y1=2:SPRITE 6,ST1,X1,Y1:SPRITE 6,JP1,X1,Y1:SPRITE 6,PN1,X1,Y1:SPRITE 6,PA1,X1,Y1:SPRITE 6,BL1,X1,Y1:SPRITE 6,YA1,X1,Y1:SPRITE 6,GL1,X1,Y1
2370 IF MOVA1=9 OR MOVA1=10 THEN Y1=4:SPRITE 6,ST1,X1,Y1:SPRITE 6,JP1,X1,Y1:SPRITE 6,PN1,X1,Y1:SPRITE 6,PA1,X1,Y1:SPRITE 6,BL1,X1,Y1:SPRITE 6,YA1,X1,Y1:SPRITE 6,GL1,X1,Y1
2380 IF MOVA1=10 THEN SPRITE 0,ST1,1:SPRITE 0,JP1,0:MOVA1=0:X1=0:Y1=0
2390 GOTO *P2
2400 *BLOCK1
2410 B_AN1=B_AN1+1
2420 SPRITE 0,ST1,0:SPRITE 0,JP1,0:SPRITE 0,BL1,1
2430 IF B_AN1=20 THEN B_AN1=0:SPRITE 0,ST1,1:SPRITE 0,BL1,0:B_FLG1=1
2440 GOTO *P2
2450 '
2460 '
2470 '
2480 *P2:FOR LWAIT=0 TO W:NEXT:'*****************************************
2490 IF SS=0 AND ((SPRITE (ST2,6))-(SPRITE(ST1,6))) < 32 THEN SS=1
2500 IF SS>0 THEN X2=6:SS=SS+1:IF SS >10 THEN SS=0
2510 'YARARE A CHECK
2520 IF YARA2>0 THEN *YARARE2_A
2530 'YOIN CHECK
2540 IF DDT2>0 THEN DDT2=DDT2+1:IF DDT2=35 OR DDT2FLG=1 THEN DDT2=0:DDT2FLG=0
2550 'BLOCK ANIME CHECK
2560 IF B_AN2>0 THEN *BLOCK2
2570 'YARARE CHECK
2580 SP_DIS2=(SPRITE (ST2,6)) - (SPRITE (GL1,6))
2590 '
2600 IF SP_DIS2<6 AND SP_DIS2>-8 AND SPRITE (GL1,0)=1 THEN GOTO *YARARE2
2610 'PANCH ANIME CHECK
2620 IF P_ANIME2 > 0 THEN *PANCH_2_A
2630 '
2640 'BUTTON A CHECK
2650 IF P_FLG2=1 AND PTRIG(2)=0 THEN P_FLG2=0
2660 IF P_FLG2=1 THEN *BUTTON_B_CHECK2
2670 'PANCH CHECK
2680 IF DDT2=0 AND PTRIG(2)=1 THEN GOTO *PANCH_2
2690 *BUTTON_B_CHECK2
2700 IF B_FLG2=1 THEN IF PTRIG(2)=0 THEN B_FLG2=0
2710 IF B_FLG2=1 THEN *PAD_CHECK2
2720 'BLOCK CHECK
2730 IF DDT2=0 AND PTRIG(2)=2 THEN *BLOCK2
2740 *PAD_CHECK2
2750 P2=PAD(2):IF SS=0 THEN X2=(((P2>5)AND(P2<9))-((P2>1)AND(P2<5)))*3
2760 'HAMIDASHI CHECK
2770 IF SPRITE (ST2,6)<20 THEN X2=1:ELSE IF SPRITE (ST2,6)>200 THEN X2=-1
2780 'MOVE CHECK1
2790 IF MOVA2<>0 THEN *MOVE2
2800 IF DDT2=0 THEN IF X2<>0 THEN *MOVE2
2810 IF DDT2>0 AND SS>0 THEN *MOVE2
2820 GOTO *P1
2830 '
2840 *PANCH_2
2850 IF PAD(2)=7 THEN EX2=-4:DDT2=1:PLAY ,,,,,,"R32D","D":ELSE PLAY ,,,,,,"c"
2860 *PANCH_2_A:IF ((SPRITE (ST2,6))-(SPRITE(ST1,6))) < 32 THEN EX2=1
2865 IF (SPRITE(ST2,6))>200 THEN EX2=-1
2866 IF (SPRITE (ST2,6)) < 201 AND EX2=-1 THEN EX2=0
3070 IF YARA2=10 THEN YARA2=0:P2=0:FX2=0:SPRITE 0,YA2,0:SPRITE 0,ST2,1
3080 '
3090 IF HP2<1 THEN *END
3100 '
3110 GOTO *P1
3120 *MOVE2:MOVA2=MOVA2+1:SPRITE TIME
3130 IF MOVA2=1 OR MOVA2=2 THEN Y2=-4:SPRITE 6,ST2,X2,Y2:SPRITE 6,JP2,X2,Y2:SPRITE 6,PN2,X2,Y2:SPRITE 6,PA2,X2,Y2:SPRITE 6,BL2,X2,Y2:SPRITE 6,YA2,X2,Y2:SPRITE 6,GL2,X2,Y2:SPRITE 0,ST2,0:SPRITE 0,JP2,1
3140 IF MOVA2=3 OR MOVA2=4 THEN Y2=-2:SPRITE 6,ST2,X2,Y2:SPRITE 6,JP2,X2,Y2:SPRITE 6,PN2,X2,Y2:SPRITE 6,PA2,X2,Y2:SPRITE 6,BL2,X2,Y2:SPRITE 6,YA2,X2,Y2:SPRITE 6,GL2,X2,Y2
3150 IF MOVA2=5 OR MOVA2=6 THEN Y2=0:SPRITE 6,ST2,X2,Y2:SPRITE 6,JP2,X2,Y2:SPRITE 6,PN2,X2,Y2:SPRITE 6,PA2,X2,Y2:SPRITE 6,BL2,X2,Y2:SPRITE 6,YA2,X2,Y2:SPRITE 6,GL2,X2,Y2
3160 IF MOVA2=7 OR MOVA2=8 THEN Y2=2:SPRITE 6,ST2,X2,Y2:SPRITE 6,JP2,X2,Y2:SPRITE 6,PN2,X2,Y2:SPRITE 6,PA2,X2,Y2:SPRITE 6,BL2,X2,Y2:SPRITE 6,YA2,X2,Y2:SPRITE 6,GL2,X2,Y2
3170 IF MOVA2=9 OR MOVA2=10 THEN Y2=4:SPRITE 6,ST2,X2,Y2:SPRITE 6,JP2,X2,Y2:SPRITE 6,PN2,X2,Y2:SPRITE 6,PA2,X2,Y2:SPRITE 6,BL2,X2,Y2:SPRITE 6,YA2,X2,Y2:SPRITE 6,GL2,X2,Y2:
3180 IF MOVA2=10 THEN SPRITE 0,ST2,1:SPRITE 0,JP2,0:MOVA2=0:X2=0:Y2=0
3190 GOTO *P1
3200 *BLOCK2
3210 B_AN2=B_AN2+1
3220 SPRITE 0,ST2,0:SPRITE 0,JP2,0:SPRITE 0,BL2,1
3230 IF B_AN2=20 THEN B_AN2=0:SPRITE 0,ST2,1:SPRITE 0,BL2,0:B_FLG2=1
3430 SYMBOL (60,8),"STAFF",1,.5!,[C31,C21,C26],,,1,1
3440 SYMBOL (50,20),"PROGRAM K.SATO",1,.5!,[C26,C21,C31],,,1,1
3450 SYMBOL (50,32),"GAME DESIGN K.SATO",1,.5!,[C26,C21,C31],,,1,1
3460 SYMBOL (50,44),"CHARACTER DESIGN K.SATO",1,.5!,[C26,C21,C31],,,1,1
3470 SYMBOL (50,56),"GRAPHICS K.SATO",1,.5!,[C26,C21,C31],,,1,1
3480 SYMBOL (50,68)," ",1,.5!,[C26,C21,C31],,,1,1
3490 SYMBOL (50,84),"SPECIAL THANKS",1,.5!,[C21,C31,C26],,,1,1
3500 SYMBOL (50,96)," T.NISHIMURA",1,.5!,[C26,C21,C31],,,1,1
3510 SYMBOL (110,200),"PUSH A BUTTON",1,.5!,[C21,C31,C26],,,1,1
3520 I=I+1
3530 IF I=1 THEN SYMBOL (110,200),"PUSH A BUTTON",1,.5!,[C26,C21,C31],,,1,1
3540 IF I=2 THEN SYMBOL (110,200),"PUSH A BUTTON",1,.5!,[C31,C21,C26],,,1,1
3550 IF I=3 THEN SYMBOL (110,200),"PUSH A BUTTON",1,.5!,[C21,C31,C26],,,1,1
3560 IF I=4 THEN SYMBOL (110,200),"PUSH A BUTTON",1,.5!,[C26,C31,C21],,,1,1:I=0
3570 IF PTRIG(1)=1 OR PTRIG(2)=1 THEN *TITLE2 ELSE 3520
3580 *EXIT
3590 CLS:SPRITE OFF:WAIT 50:GOTO *TITLE2CD
3600 '
3610 *CLS
3620 SYMBOL (90,50),"REPLAY ?",1,1,0,,,1:SYMBOL (100,70),"YES A BUTTON",1,1,0,,,1:SYMBOL (100,90),"NO B BUTTON",1,1,0,,,1:RETURN
3630 *WAIT_CHANGE:W=W/50
3640 SYMBOL (100,200),"GAME SPEED",1,.5!,[C26,C21,C31],,,1,1
3650 WAIT 10
3660 IF PAD(1)=5 THEN SYMBOL (200,200),STR$(W),1,.5!,,,PRESET,1,1:W=W-1:IF W < 0 THEN W=0
3670 IF PAD(1)=1 THEN SYMBOL (200,200),STR$(W),1,.5!,,,PRESET,1,1:W=W+1:IF W > 10 THEN W=10
3680 SYMBOL (200,200),STR$(W),1,.5!,[C26,C21,C31],,,1,1
3690 IF PTRIG(1)<>1 THEN 3650 ELSE SYMBOL (100,200),"GAME SPEED",1,.5!,,,PRESET,1,1:SYMBOL (200,200),STR$(W),1,.5!,,,PRESET,1,1:W=W*50:CLS 4:WAIT 10:RETURN